home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / Greased Igpay (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  792b  |  22 lines
  1. 0 rem  << cd38-3 >>
  2. 1 rem problem #34-2 :
  3. 2 print"   greased igpay"
  4. 4 rem =================================
  5. 5 rem  - solution by dr. curryfavor -
  6. 6 rem =================================
  7. 10 inputa$:v$="aeiou"
  8. 20 forv=1to5:ifleft$(a$,1)=mid$(v$,v,1)thenprinta$"ay":goto10
  9. 30 next:a$=right$(a$,len(a$)-1)+left$(a$,1):goto20
  10. 40 rem   next:a$=mid$(a$,2)+left$(a$,1):goto20
  11. 94 rem =================================
  12. 95 rem   - solution by chris barth -
  13. 96 rem =================================
  14. 100 geta$:if a$=" "thenprintw$"ay":run100
  15. 110 forv=1to5:a=a+(a$=mid$("aeiou",v,1)):next:ifa<0thenprinta$;:goto100
  16. 120 w$=w$+a$:goto100
  17. 194 rem ================================
  18. 195 rem   - solution by greg smisek -
  19. 196 rem ================================
  20. 200 inputw$:forc=1tolen(w$):forl=1to6+(c=1):ifmid$(w$,c,1)<>mid$("aeiouy",l,1)thennext:next
  21. 210 c=c+(c=3andmid$(w$,2,1)="h"):printmid$(w$,c)left$(w$,c-1)chr$(-87*(c=1))"ay":run200
  22.